home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 January / 1990-01.d64 / ml programming (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  655 b   |  30 lines
  1. 10 print"[147][154]":poke53280,14:poke53281,6
  2. 20 print"please wait ...."
  3. 100 data 169,0,141,240,37,141,241,37
  4. 110 data 141,255,37,162,1,32,198,255
  5. 120 data 32,228,255,168,185,0,38
  6. 130 data 205,255,37,240,14,141,255
  7. 140 data 37,168,240,8,238,240,37,208,3
  8. 150 data 238,241,37,165,144,240,226
  9. 160 data 76,204,255
  10. 200 for j=9472 to 9520
  11. 210 read x:t=t+x
  12. 220 poke j,x
  13. 230 next j
  14. 240 if t<>7145 then stop
  15. 500 c=9728:c0=c+128
  16. 510 for j=0 to 255:poke j+c,0:next j
  17. 520 for j=48 to 57:poke j+c,1:next j
  18. 530 for j=65 to 90
  19. 540 poke j+c,1:poke j+c0,1
  20. 550 next j
  21. 600 open 15,8,15
  22. 610 print"[147]word counter":input "enter filename";f$
  23. 620 open 1,8,2,f$
  24. 630 input#15,a,a$,a1,a2:if a<>0 then print a$:stop
  25. 640 sys 9472
  26. 650 close 1
  27. 660 close 15
  28. 670 w=peek(9712)+peek(9713)*256
  29. 680 print "file has";w;"words."
  30.